Imports Microsoft.VisualBasic
Imports System.Web.UI.Page
Imports System.IO
Public Class Log
    Sub LoginFail(ByVal Path As String, ByVal Content As String)
        Try
            Dim file As String = ""
            Dim fOut As FileStream = New FileStream(Path.Trim(" "), FileMode.Create)
            Dim sw As StreamWriter = New StreamWriter(fOut, System.Text.Encoding.Default)

            sw.Write(Content.Trim)
            sw.Close()
            fOut.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
